Option Explicit
Sub C_Sample009()
    Dim myRng As Range
    Set myRng = Range("B1:B3")			'Nxs
    Cells.Clear							'xs檺M
    Range("A1") = 3						']wƭ
    Range("A2") = 10
    Range("A3") = 26
    'ǳƨ즹
    myRng.FormulaR1C1 = "=RC[-1]"				']w
    'myRng.Value = "=RC[-1]"
    Set myRng = Nothing						'
End Sub
